2 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53280,0:POKE53281,0
20 FORI=0TO10:POKE781,I:SYS59903:NEXT
220 SYS57812"FREEZER",DV,0:POKE780,0:POKE781,52:POKE782,3:SYS65493
230 POKE873,DV
250 SYS820:POKE56325,60
260 REM POKE816,165:POKE817,244
300 PRINT"[144]LOAD"CHR$(34)"LASER SHOW"CHR$(34)","DV
310 PRINT"RUN"
320 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:B.LASER SHOW":CLOSE15:SAVE"B.LASER SHOW",8:END